home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / dll_gen / vbossapi / vbossapi.bas < prev    next >
BASIC Source File  |  1995-11-10  |  29KB  |  547 lines
  1. Option Explicit
  2.  
  3. ' ===============================================================
  4. ' = VBossAPI.DLL v02.00.01 Interface Declarations               =
  5. ' ===============================================================
  6. '
  7. '  @@    @@ @@@@@@                             @    @@@@@@  @@@@
  8. '  @@    @@  @@  @@                           @@@    @@  @@  @@
  9. '  @@    @@  @@  @@  @@@@@   @@@@@   @@@@@   @@ @@   @@  @@  @@
  10. '  @@    @@  @@@@@  @@   @@ @@   @@ @@   @@ @@   @@  @@  @@  @@
  11. '  @@    @@  @@  @@ @@   @@  @@@     @@@    @@@@@@@  @@@@@   @@
  12. '   @@  @@   @@  @@ @@   @@    @@@     @@@  @@   @@  @@      @@
  13. '    @@@@    @@  @@ @@   @@ @@   @@ @@   @@ @@   @@  @@      @@
  14. '     @@    @@@@@@   @@@@@   @@@@@   @@@@@  @@   @@ @@@@    @@@@
  15. '
  16. ' ...............................................................
  17. ' . V isual                                                     .
  18. ' . B asic                                                      .
  19. ' . O ptimized                                                  .
  20. ' . S cript                                                     .
  21. ' . S upport                                                    .
  22. ' . A pplication                                                .
  23. ' . P rogramming                                                .
  24. ' . I nterface                                                  .
  25. ' ===============================================================
  26. ' = Copyright ⌐ 1994,95 Greg Truesdell                          =
  27. ' ===============================================================
  28.  
  29. ' ===============================================================
  30. ' = RegisterVBossAPI()                                          =
  31. ' =     Used to register the DLL                                =
  32. ' ===============================================================
  33. '
  34. Declare Function RegisterVBossAPI Lib "VBossAPI.DLL" (ByVal UserID As String, ByVal RegID As String) As Integer
  35. Declare Function CreateScrObject Lib "VBossAPI.DLL" () As Integer
  36. Declare Sub DestroyScrObject Lib "VBossAPI.DLL" (ByVal idx As Integer)
  37.  
  38. ' ===============================================================
  39. ' = SetParseOption()                                            =
  40. ' =   Used to set special parsing engine options                =
  41. ' ===============================================================
  42. Declare Sub SetParseOption Lib "VBossAPI.DLL" (ByVal POption As Integer, ByVal OnOff As Integer)
  43.     '
  44.     ' Parsing Options
  45.     '
  46.     Global Const PO_STRINGS = 0   ' determines if the parse should recognize strings
  47.                   ' as '' or "".  If so, the parser will return
  48.                   ' NT_STRING_CONST when a string is parsed.
  49. '
  50. ' VBossAPI Limits Constants
  51. '
  52. Global Const OSS_MAX_WORD_LEN = 255         '{ maximum word length }
  53.  
  54. ' ***************************************************************************************
  55. ' * Expression Evaluation Routines                                                      *
  56. ' *                                                                                     *
  57. ' *     Evaluate, Test and return Error information.                                    *
  58. ' *                                                                                     *
  59. ' ***************************************************************************************
  60.  
  61. ' ===============================================================
  62. ' = EvalExpression()                                            =
  63. ' =     Evaluates REAL & INT expressions in infix notation and  =
  64. ' =     supports */+- and ABS, ARCTAN, COS, EXP, LN, SQR and    =
  65. ' =     SQRT.                                                   =
  66. ' =                                                             =
  67. ' =     Evaluates the text formula in ExprStr and returns the   =
  68. ' =     text representation of the answer.  Supports the        =
  69. ' =     dynamic allocation of variables and can use variables   =
  70. ' =     already declared.                                       =
  71. ' ===============================================================
  72. '
  73. Declare Function EvalExpression Lib "VBossAPI.DLL" (ByVal ExprStr As String, rc As Integer) As String
  74.  
  75. ' ===============================================================
  76. ' = TestNumExpr()                                               =
  77. ' =     Test the relation between two numeric expressions.      =
  78. ' ===============================================================
  79. '
  80. Declare Function TestNumExpr Lib "VBOSSAPI.DLL" (ByVal LExpr As String, ByVal Op As String, ByVal RExpr As String, Success As Integer) As Integer
  81.  
  82. ' ===============================================================
  83. ' = EvalErrorString()                                           =
  84. ' =     Returns the error string describing the last error in   =
  85. ' =     the evaluation of an expression by EvalExpression. If   =
  86. ' =     EvalExpression returns FALSE in <rc>, then use this     =
  87. ' =     call to determine the cause of the error.  The          =
  88. ' =     internal error code is RETURNED in <errcode>            =
  89. ' =                                                             =
  90. ' = Note:   The error code and error string are reset after     =
  91. ' =         a call to this function.                            =
  92. ' ===============================================================
  93. '
  94. Declare Function EvalErrorString Lib "VBossAPI.DLL" (errcode As Integer) As String
  95.  
  96.     '
  97.     '  EvalExpression Error Codes (returned by EvalErrorString())
  98.     '
  99.     Global Const EXPR_SYNTAX_ERROR = 1
  100.     Global Const EXPR_PARAMETER_MISSING = 2
  101.     Global Const EXPR_PARAMETER_COUNT_ERROR = 3
  102.     Global Const EXPR_INVALID_PARAMETER = 4
  103.     Global Const EXPR_OVERFLOW = 5
  104.     Global Const EXPR_COMMA_MISSING = 6
  105.     Global Const EXPR_MISSING_RPAREN = 7
  106.     Global Const EXPR_TYPE_MISMATCH = 8
  107.     Global Const EXPR_INVALID_IDENTIFIER = 9
  108.     Global Const EXPR_PARAMETERS_NOT_ALLOWED = 10
  109.     Global Const EXPR_EXPECTED_FACTOR = 11
  110.     Global Const EXPR_EXPECTED_TERM = 12
  111.     Global Const EXPR_EXPECTED_EXPRESSION = 13
  112.     Global Const EXPR_ZERO_DIVIDE = 14
  113.     Global Const EXPR_OUT_OF_MEMORY = 15
  114.     Global Const EXPR_GARBAGE_FOLLOWS = 16
  115.     Global Const EXPR_VARIABLE_EQUATE_ERROR = 17
  116.     Global Const EXPR_INVALID_FUNCTION = 18
  117.  
  118. ' ***************************************************************************************
  119. ' * Token Parsing Support Routines                                                      *
  120. ' *                                                                                     *
  121. ' *     This section defines the Token Parsing Routines.  Token parsing uses a number   *
  122. ' *     of internal defaults.  These include:                                           *
  123. ' *                                                                                     *
  124. ' *         Word Delimiters:    All characters from Chr(1) to Chr(32)                   *
  125. ' *         Operator Tokens:    +-*/"';:[]{}()!@#$%^&=<>,                               *
  126. ' *                                                                                     *
  127. ' *             Operator tokens reserve the first 32 token codes (0..31), so your       *
  128. ' *             token codes must start at 32+                                           *
  129. ' *                                                                                     *
  130. ' ***************************************************************************************
  131.  
  132. ' ===============================================================
  133. ' = AddKeyword()                                                =
  134. ' =     Adds a keyword and related keycode to the keyword list  =
  135. ' ===============================================================
  136. Declare Function AddKeyword Lib "VBossAPI.DLL" (ByVal kw As String, ByVal kc As Integer) As Integer
  137.     '
  138.     '   AddKeyword() Return Codes
  139.     '
  140.     Global Const AKW_NO_MORE_ROOM = -1      '{ no more keyword space }
  141.     Global Const AKW_INVALID_CHAR = -2      '{ invalid character in keyword }
  142.     Global Const AKW_DUPLICATE_KEYWORD = -3 '{ duplicate keyword }
  143.     Global Const AKW_KEYWORD_TOO_LONG = -4  '{ keyword too long }
  144.     Global Const AKW_INVALID_TOKEN = -5     '{ invalid token (keycode) value }
  145.                         '{ - negative numbers not allowed }
  146.     Global Const AKW_TYPE_MISMATCH = -6     '{ AddVariable() type mismatch }
  147.     Global Const AKW_OVERFLOW = -7          '{ AddVariable() overflow }
  148.     '
  149.     '   AddKeyword() Limits
  150.     '
  151.     Global Const AKW_MAX_KEYWORD_LEN = 16   '{ maximum keyword length }
  152.     Global Const AKW_MAX_KEYWORDS = 256     '{ maximum number of keywords }
  153.  
  154. ' ===============================================================
  155. ' = NextToken()                                                 =
  156. ' =     Starting at <start> returns the next token code found   =
  157. ' =     in <st> in <token>. <start> is returned with the next   =
  158. ' =     character index in the string. The function returns     =
  159. ' =     the token text.                                         =
  160. ' =                                                             =
  161. ' = Note:                                                       =
  162. ' =         The <token> parameter must be an integer variable   =
  163. ' =         since this function returns the token value         =
  164. ' =         associated with the token found. See constant       =
  165. ' =         declarations below.                                 =
  166. ' ===============================================================
  167. ' = PeekNextToken() gets the next token without updating the    =
  168. ' = <start> (character index) variable                          =
  169. ' ===============================================================
  170. '
  171. Declare Function NextToken Lib "VBossAPI.DLL" (start As Integer, ByVal st As String, Token As Integer) As String
  172. Declare Function PeekNextToken Lib "VBossAPI.DLL" (ByVal start As Integer, ByVal st As String, Token As Integer) As String
  173.     '
  174.     '   NextToken Return Codes (in <token>)
  175.     '
  176.     '   Note: Positive numbers >= NT_MAX_OPERATORS are valid tokens
  177.     '
  178.     Global Const NT_MAX_OPERATORS = 32      ' reserved operator tokens
  179.     Global Const NT_PAST_EOL = -1           '{ end of the line }
  180.     Global Const NT_NO_KEYWORDS = -2        '{ no keywords in keyword DB }
  181.     Global Const NT_TOKEN_NOTFOUND = -3     '{ next word can not be tokenized }
  182.     Global Const NT_NO_FREE_MEMORY = -4     '{ no heap available for buffer }
  183.     Global Const NT_VARIABLE_FOUND = -5     '{ keyword found was a variable }
  184.     Global Const NT_USER_ERROR = -99        '{ added as a convience, not used internally }
  185.     Global Const NT_LABEL_FOUND = -6        '{ keyword parsed was a label name }
  186.     Global Const NT_FUNCTION = -7           '{ keyword parsed was a function name }
  187.     Global Const NT_PROCEDURE = -8          '{ keyword parsed was a procedure name }
  188.     Global Const NT_NUMERIC_CONST = -9
  189.     Global Const NT_STRING_CONST = -10
  190.     Global Const NT_MATH_FUNCTION = -11
  191.  
  192.  
  193.     '
  194.     '  Operator Constants - Tokens returned by NextToken() for operators
  195.     '
  196.     '  + - * / " ' ; : [ ] { } ( ) ! @ # $ % ^ & = < > ,
  197.     '
  198.     Global Const NT_PLUS = 1
  199.     Global Const NT_MINUS = 2
  200.     Global Const NT_TIMES = 3
  201.     Global Const NT_DIVIDE = 4
  202.     Global Const NT_DBL_QUOTE = 5
  203.     Global Const NT_SNG_QUOTE = 6
  204.     Global Const NT_SEMICOLON = 7
  205.     Global Const NT_COLON = 8
  206.     Global Const NT_LEFTBRACKET = 9
  207.     Global Const NT_RIGHTBRACKET = 10
  208.     Global Const NT_LEFTBRACE = 11
  209.     Global Const NT_RIGHTBRACE = 12
  210.     Global Const NT_LEFTPAREN = 13
  211.     Global Const NT_RIGHTPAREN = 14
  212.     Global Const NT_EXCLAMATION = 15
  213.     Global Const NT_AT = 16
  214.     Global Const NT_POUND = 17
  215.     Global Const NT_DOLLAR = 18
  216.     Global Const NT_PERCENT = 19
  217.     Global Const NT_CARET = 20
  218.     Global Const NT_AMPERSAND = 21
  219.     Global Const NT_EQUAL = 22
  220.     Global Const NT_LESSTHAN = 23
  221.     Global Const NT_GREATERTHAN = 24
  222.     Global Const NT_COMMA = 25
  223.  
  224. ' ===============================================================
  225. ' = KeywordCount()                                              =
  226. ' =     Returns the number of keywords in the keyword DB.       =
  227. ' ===============================================================
  228. '
  229. Declare Function KeywordCount% Lib "VBossAPI.DLL" ()
  230.  
  231. ' ===============================================================
  232. ' = GetKeyword()                                                =
  233. ' =     Return the keyword text for keyword #<idx>.             =
  234. ' =                                                             =
  235. ' = Note:                                                       =
  236. ' =         This function returns the keyword text for the      =
  237. ' =         <idx>-th entry in the keyword list, NOT by the      =
  238. ' =         keyword's token value.  Operators are not included  =
  239. ' =         in the keyword list.                                =
  240. ' =                                                             =
  241. ' =         Use with KeywordCount() to locate all keywords      =
  242. ' =         in the keyword list.                                =
  243. ' =                                                             =
  244. ' =         The keyword list is zero based (0 to MAX_KEYWORDS-1)=
  245. ' ===============================================================
  246. '
  247. Declare Function GetKeyword Lib "VBossAPI.DLL" (ByVal idx As Integer) As String
  248.  
  249. ' ===============================================================
  250. ' = GetKeywordToken()                                           =
  251. ' =     Return the keyword token for keyword <kw>.              =
  252. ' =                                                             =
  253. ' = Note:                                                       =
  254. ' =         This function returns the token value of a keyword. =
  255. ' =         The token value is the value you passed in the      =
  256. ' =         AddKeyword() function <kc> parameter                =
  257. ' ===============================================================
  258. '
  259. Declare Function GetKeywordToken Lib "VBossAPI.DLL" (ByVal kw As String) As Integer
  260.  
  261. ' ===============================================================
  262. ' = GetTokenKeyword()                                           =
  263. ' =     Returns the text Keyword for the token code passed.     =
  264. ' =                                                             =
  265. ' = Note:                                                       =
  266. ' =         This function recalls the text Keyword based on the =
  267. ' =         token value you passed in the AddKeyword()          =
  268. ' =         function                                            =
  269. ' ===============================================================
  270. '
  271. Declare Function GetTokenKeyword Lib "VBossAPI.DLL" (ByVal Token As Integer) As String
  272.  
  273.  
  274. ' ===============================================================
  275. ' = SaveKeywords()                                              =
  276. ' =     Save the keyword list to file                           =
  277. ' =     Returns 0 if successful, -1 if not                      =
  278. ' ===============================================================
  279. '
  280. ' Keyword file Record type
  281. '
  282. Type KeywordRecord
  283.  
  284.     KeywordLen  As String * 1   ' byte value 0..16
  285.     KeywordStr  As String * 16
  286.     KeyToken    As Integer
  287.     Reserved1   As Integer
  288.     Reserved2   As Long
  289.  
  290. End Type
  291. '
  292. Declare Function SaveKeywords Lib "VBossAPI.DLL" (ByVal filename As String) As Integer
  293.  
  294. ' ===============================================================
  295. ' = LoadKeywords()                                              =
  296. ' =     Load the keyword list from file                         =
  297. ' =     Returns 0 if successful, -1 if not                      =
  298. ' ===============================================================
  299. '
  300. Declare Function LoadKeywords Lib "VBossAPI.DLL" (ByVal filename As String) As Integer
  301.  
  302. ' ===============================================================
  303. ' = ZapKeywords()                                               =
  304. ' =     Erases all keywords.                                    =
  305. ' ===============================================================
  306. '
  307. Declare Sub ZapKeywords Lib "VBossAPI.DLL" ()
  308.  
  309. ' ===============================================================
  310. ' = NT_CodeString()                                             =
  311. ' =     Decode the context of a token code                      =
  312. ' ===============================================================
  313. '
  314. Declare Function NT_CodeString Lib "VBossAPI.DLL" (ByVal Token As Integer) As String
  315.  
  316. ' ===============================================================
  317. ' = NT_Operators()                                              =
  318. ' =     Returns a string containing the default operators list. =
  319. ' ===============================================================
  320. Declare Function NT_Operators Lib "VBossAPI.DLL" () As String
  321. Declare Sub SetOperators Lib "VBossAPI.DLL" (ByVal OpList As String)
  322.  
  323. ' ===============================================================
  324. ' = DefTokenDelims()                                            =
  325. ' =     Returns a VBStr with the default token delimiters.      =
  326. ' ===============================================================
  327. '
  328. Declare Function DefTokenDelims Lib "VBossAPI.DLL" () As String
  329. Declare Sub SetDelimiters Lib "VBossAPI.DLL" (ByVal delims As String)
  330.  
  331. ' ***************************************************************************************
  332. ' * Variable Related Functions                                                          *
  333. ' ***************************************************************************************
  334.  
  335. ' ===============================================================
  336. ' = AddVariable()                                               =
  337. ' =     Adds a new variable to the variable DB. The data type   =
  338. ' =     is determined by the value of <vtype>. The data to be   =
  339. ' =     stored is provided as a string. <vdata>                 =
  340. ' =                                                             =
  341. ' = Note:                                                       =
  342. ' =         See AKW_* return codes. This function returns the   =
  343. ' =         same error return codes as AddKeyword()             =
  344. ' =
  345. ' ===============================================================
  346. '
  347. Declare Function AddVariable Lib "VBossAPI.DLL" (ByVal VName As String, ByVal vtype As Integer, ByVal vdata As String) As Integer
  348.     '
  349.     ' Variable Type Constants
  350.     '
  351.     Global Const VTNONE = 0
  352.     Global Const VTSTRING = 1
  353.     Global Const VTINTEGER = 2
  354.     Global Const VTFLOAT = 3
  355.     Global Const VTPROCEDURE = 4    ' defined to help implement procedures by name
  356.     Global Const VTFUNCTION = 5     ' defined to help implement functions by name
  357.     Global Const VTLABEL = 6        ' defined to help implement labels
  358.  
  359.  
  360. ' ===============================================================
  361. ' = VariableCount()                                             =
  362. ' =     Returns the number of variables in the variable DB.     =
  363. ' ===============================================================
  364. '
  365. Declare Function VariableCount% Lib "VBossAPI.DLL" ()
  366.  
  367. ' ===============================================================
  368. ' = GetVariable()                                               =
  369. ' =     Searches the variable list for <vname>.                 =
  370. ' =                                                             =
  371. ' =     If found returns the variable type in <vtype> and a     =
  372. ' =     string containing a text representation of the variable =
  373. ' =     contents.                                               =
  374. ' =                                                             =
  375. ' =     if NOT found, returns -1 in vartype and a null string.  =
  376. ' =                                                             =
  377. ' ===============================================================
  378. '
  379. Declare Function GetVariable Lib "VBossAPI.DLL" (ByVal VName As String, vtype As Integer) As String
  380.  
  381. ' ===============================================================
  382. ' = PeekVariable()                                              =
  383. ' =   Returns the name and type of the idx'th variable in the   =
  384. ' =  variable database                                          =
  385. ' ===============================================================
  386. Declare Function PeekVariable Lib "VBossAPI.DLL" (ByVal idx As Integer, vtype As Integer) As String
  387.  
  388.  
  389. ' ===============================================================
  390. ' = SetVariable()                                               =
  391. ' =     Sets the variable <vname> to the new value in <vdata>.  =
  392. ' =     <vdata> is a string, so the variable contents are       =
  393. ' =     checked for consistancy with the variable type.         =
  394. ' =                                                             =
  395. ' =     Returns an error code if the variable type is a         =
  396. ' =     mismatch or if the variable doesnot exist.              =
  397. ' =                                                             =
  398. ' =     Otherwise returns the variable type on success.         =
  399. ' ===============================================================
  400. '
  401. Declare Function SetVariable Lib "VBossAPI.DLL" (ByVal VName As String, ByVal vdata As String) As Integer
  402.  
  403. ' ===============================================================
  404. ' = KillVariable()                                              =
  405. ' =   Zaps a specific variable                                  =
  406. ' = KillVariablesFrom()                                         =
  407. ' =   Zaps a specific variable and all variables created after  =
  408. ' =   it.                                                       =
  409. ' = ZapVariables()                                              =
  410. ' =   Erases all variables.                                     =
  411. ' ===============================================================
  412. '
  413. Declare Sub KillVariable Lib "VBossAPI.DLL" (ByVal VName As String)
  414. Declare Sub KillVariablesFrom Lib "VBossAPI.DLL" (ByVal VName As String)
  415. Declare Sub ZapVariables Lib "VBossAPI.DLL" ()
  416.  
  417. ' ***************************************************************************************
  418. ' * Word Parsing Support Routines                                                       *
  419. ' *                                                                                     *
  420. ' *     This section defines the Word Parsing Routines.  Word parsing differs from      *
  421. ' *     token parsing in that no default assumptions are made as to what delimits       *
  422. ' *     a word.  Most functions require a string containing the delimiters you want     *
  423. ' *     to use.                                                                         *
  424. ' *                                                                                     *
  425. ' * Note:                                                                               *
  426. ' *         A word is defined as up to 255 characters delimited by the delimiter        *
  427. ' *         set.  Any set of characters located that is > 255 will be truncated.        *
  428. ' ***************************************************************************************
  429.  
  430. ' ===============================================================
  431. ' = ParseStr()                                                  =
  432. ' =     Parse string <st> starting at zero-based character      =
  433. ' =     <start> using <delims> as a string of word delimiters.  =
  434. ' =                                                             =
  435. ' = Returns integer <start> with index to next word or -1 if no =
  436. ' =     more.                                                   =
  437. ' ===============================================================
  438. '
  439. Declare Function ParseStr Lib "VBossAPI.DLL" (start As Integer, ByVal st As String, ByVal delims As String) As String
  440.  
  441. ' ===============================================================
  442. ' = ParseUntil()                                                =
  443. ' =     Parse string st starting at zero-based character start  =
  444. ' =     using cset as a string of word delimiters.  Stop at     =
  445. ' =     the first occurance of any character in the cset.       =
  446. ' =                                                             =
  447. ' = Returns integer <start> with index to next word or -1 if no =
  448. ' =     more.                                                   =
  449. ' ===============================================================
  450. '
  451. Declare Function ParseUntil Lib "VBossAPI.DLL" (start As Integer, ByVal st As String, ByVal cset As String) As String
  452.  
  453. ' ===============================================================
  454. ' = WordCount()                                                 =
  455. ' =     Count the number of words in string <st> using the      =
  456. ' =     string <delims> as word delimiters                      =
  457. ' ===============================================================
  458. '
  459. Declare Function WordCount Lib "VBossAPI.DLL" (ByVal st As String, ByVal delims As String) As Integer
  460.  
  461. ' ===============================================================
  462. ' = GetWordAt()                                                 =
  463. ' =     Return word number <idx> in string <st> using <delims>  =
  464. ' =     as a set of word delimiters                             =
  465. ' ===============================================================
  466. '
  467. Declare Function GetWordAt Lib "VBossAPI.DLL" (ByVal idx As Integer, ByVal st As String, ByVal delims As String) As String
  468.  
  469. ' ===============================================================
  470. ' = LocateWord()                                                =
  471. ' =     Return the character index in <str> of the <idx>th word =
  472. ' =     (in <str>).                                             =
  473. ' ===============================================================
  474. '
  475. Declare Function LocateWord Lib "VBossAPI.DLL" (ByVal idx As Integer, ByVal st As String, ByVal delims As String) As Integer
  476.  
  477.  
  478. ' ***************************************************************************************
  479. ' * Misc. String Functions                                                              *
  480. ' ***************************************************************************************
  481.  
  482. ' =======================================================================
  483. ' = LPGetVBStr()                                                        =
  484. ' =     Convert the zero-terminated string (by pointer) to a VB String. =
  485. ' =======================================================================
  486. '
  487. Declare Function LPGetVBStr Lib "VBossAPI" (ByVal pStr As Long) As String
  488.  
  489. ' =======================================================================
  490. ' = VBStrGetLP()                                                        =
  491. ' =     Return a pointer to the lpsz string in a VB String.             =
  492. ' =======================================================================
  493. '
  494. Declare Function VBStrGetLP Lib "VBossAPI" (ByVal pStr As String) As Long
  495.  
  496. ' ===============================================================
  497. ' = PackSpaces()                                                =
  498. ' =     Pack multiple spaces into one space in string <st>      =
  499. ' =                                                             =
  500. ' = Note: Tabs are packed as well (single space)                =
  501. ' ===============================================================
  502. '
  503. Declare Function PackSpaces Lib "VBossAPI.DLL" (ByVal st As String) As String
  504.  
  505.  
  506. ' ===============================================================
  507. ' = FullPath()                                                  =
  508. ' =     Returns the expanded file path for the filename <fn>    =
  509. ' ===============================================================
  510. '
  511. Declare Function FullPath Lib "VBossAPI.DLL" (ByVal fn As String) As String
  512.  
  513. ' ===============================================================
  514. ' = NameOnly()                                                  =
  515. ' =     Returns the name part of the filename <fn>              =
  516. ' ===============================================================
  517. '
  518. Declare Function NameOnly Lib "VBossAPI.DLL" (ByVal fn As String) As String
  519.  
  520. ' ===============================================================
  521. ' = ExtOnly()                                                   =
  522. ' =     Returns the extension (.ext) for the filename <fn>      =
  523. ' ===============================================================
  524. '
  525. Declare Function ExtOnly Lib "VBossAPI.DLL" (ByVal fn As String) As String
  526.  
  527. ' ===============================================================
  528. ' = DirOnly()                                                   =
  529. ' =     Returns the directory part of the filename <fn>         =
  530. ' =     including last "\"                                      =
  531. ' ===============================================================
  532. '
  533. Declare Function DirOnly Lib "VBossAPI.DLL" (ByVal fn As String) As String
  534.  
  535. ' ===============================================================
  536. ' = ReplacePath()                                               =
  537. ' =     Replaces the path in <fn> with the path in <np>         =
  538. ' ===============================================================
  539. '
  540. Declare Function ReplacePath Lib "VBossAPI.DLL" (ByVal fn As String, ByVal np As String) As String
  541.  
  542.  
  543. ' *************************
  544. ' ** END OF VBOSSAPI.BAS **
  545. ' *************************
  546.  
  547.